/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amossible / structures / subrout.amos

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 2e 30 30 |AMOS Bas|ic V1.00|
|00000010| 00 00 06 76 2b 01 06 52 | 00 4e 2a 2a 2a 2a 2a 2a |...v+..R|.N******|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 45 |********|*******E|
|00000030| 72 72 2e 2e 2e 49 20 63 | 61 6e 27 74 20 74 68 69 |rr...I c|an't thi|
|00000040| 6e 6b 20 6f 66 20 61 20 | 54 69 74 6c 65 2e 2e 2e |nk of a |Title...|
|00000050| 2e 2e 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..******|********|
|00000060| 2a 2a 2a 2a 2a 2a 2a 20 | 00 00 29 01 06 4a 00 4a |******* |..)..J.J|
|00000070| 20 41 6c 74 68 6f 75 67 | 68 20 74 68 65 20 6c 6f | Althoug|h the lo|
|00000080| 6f 70 73 20 77 65 20 68 | 61 76 65 20 73 68 6f 77 |ops we h|ave show|
|00000090| 6e 20 61 72 65 20 76 65 | 72 79 20 75 73 65 66 75 |n are ve|ry usefu|
|000000a0| 6c 20 61 6e 64 20 6f 66 | 74 65 6e 20 65 73 73 65 |l and of|ten esse|
|000000b0| 6e 74 69 61 6c 2c 79 6f | 75 20 00 00 28 01 06 4a |ntial,yo|u ..(..J|
|000000c0| 00 48 20 63 61 6e 27 74 | 20 61 6c 77 61 79 73 20 |.H can't| always |
|000000d0| 72 65 6c 79 20 6f 6e 20 | 74 68 65 6d 20 69 6e 20 |rely on |them in |
|000000e0| 6d 6f 72 65 20 63 6f 6d | 70 6c 65 78 20 70 72 6f |more com|plex pro|
|000000f0| 67 72 61 6d 73 2e 46 6f | 72 20 61 20 6d 6f 72 65 |grams.Fo|r a more|
|00000100| 20 64 65 74 61 69 6c 65 | 64 20 00 00 24 01 06 4a | detaile|d ..$..J|
|00000110| 00 40 20 65 78 70 6c 61 | 6e 61 74 69 6f 6e 20 6f |.@ expla|nation o|
|00000120| 66 20 73 75 62 72 6f 75 | 74 69 6e 65 73 2c 6c 6f |f subrou|tines,lo|
|00000130| 6f 6b 20 61 74 20 74 68 | 65 20 6f 6e 20 64 69 73 |ok at th|e on dis|
|00000140| 6b 20 64 6f 63 75 6d 65 | 6e 74 20 66 69 6c 65 73 |k docume|nt files|
|00000150| 2e 20 00 00 29 01 06 4a | 00 4a 20 57 68 65 72 65 |. ..)..J|.J Where|
|00000160| 20 77 6f 75 6c 64 20 79 | 6f 75 20 6e 65 65 64 20 | would y|ou need |
|00000170| 74 6f 20 75 73 65 20 61 | 20 73 75 62 72 6f 75 74 |to use a| subrout|
|00000180| 69 6e 65 3f 57 65 6c 6c | 2c 69 6d 61 67 69 6e 65 |ine?Well|,imagine|
|00000190| 20 74 68 61 74 20 69 6e | 20 61 20 67 61 6d 65 20 | that in| a game |
|000001a0| 79 6f 75 20 00 00 29 01 | 06 4a 00 4a 20 68 61 64 |you ..).|.J.J had|
|000001b0| 20 6d 61 64 65 2c 79 6f | 75 20 68 61 64 20 61 20 | made,yo|u had a |
|000001c0| 6d 61 69 6e 20 70 72 6f | 67 72 61 6d 20 6c 6f 6f |main pro|gram loo|
|000001d0| 70 2c 61 6e 64 20 68 61 | 64 20 73 6f 6d 65 20 60 |p,and ha|d some `|
|000001e0| 73 70 65 63 69 61 6c 20 | 74 68 69 6e 67 73 20 66 |special |things f|
|000001f0| 6f 72 20 74 68 65 00 00 | 29 01 06 4a 00 4a 20 63 |or the..|)..J.J c|
|00000200| 6f 6d 70 75 74 65 72 20 | 74 6f 20 64 6f 20 77 68 |omputer |to do wh|
|00000210| 65 6e 20 74 68 65 20 70 | 6c 61 79 65 72 20 68 61 |en the p|layer ha|
|00000220| 64 20 77 6f 6e 2d 42 75 | 74 20 79 6f 75 20 63 6f |d won-Bu|t you co|
|00000230| 75 6c 64 6e 27 74 20 69 | 6e 63 6c 75 64 65 20 74 |uldn't i|nclude t|
|00000240| 68 65 73 65 20 69 6e 20 | 00 00 26 01 06 4a 00 44 |hese in |..&..J.D|
|00000250| 20 74 68 65 20 6d 61 69 | 6e 20 62 69 74 20 62 65 | the mai|n bit be|
|00000260| 63 61 75 73 65 20 79 6f | 75 20 6f 6e 6c 79 20 77 |cause yo|u only w|
|00000270| 61 6e 74 20 74 68 65 6d | 20 74 6f 20 6f 63 63 75 |ant them| to occu|
|00000280| 72 20 61 74 20 63 65 72 | 74 61 69 6e 20 70 6f 69 |r at cer|tain poi|
|00000290| 6e 74 73 2e 00 00 27 01 | 06 4a 00 46 20 49 6e 20 |nts...'.|.J.F In |
|000002a0| 74 68 69 73 20 73 69 6d | 70 6c 65 20 70 72 6f 67 |this sim|ple prog|
|000002b0| 72 61 6d 2c 77 65 20 73 | 74 61 72 74 20 69 6e 20 |ram,we s|tart in |
|000002c0| 74 68 65 20 4d 41 49 4e | 20 73 75 62 72 6f 75 74 |the MAIN| subrout|
|000002d0| 69 6e 65 2d 49 74 20 70 | 72 69 6e 74 73 20 73 6f |ine-It p|rints so|
|000002e0| 6d 65 00 00 26 01 06 4a | 00 44 20 74 65 78 74 2c |me..&..J|.D text,|
|000002f0| 77 61 69 74 73 20 66 6f | 72 20 70 6f 69 6e 74 20 |waits fo|r point |
|00000300| 33 30 20 6f 66 20 61 20 | 73 65 63 6f 6e 64 20 61 |30 of a |second a|
|00000310| 6e 64 20 74 68 65 6e 20 | 67 6f 65 73 20 74 6f 20 |nd then |goes to |
|00000320| 74 68 65 20 73 75 62 72 | 6f 75 74 69 6e 65 00 00 |the subr|outine..|
|00000330| 28 01 06 4a 00 48 20 53 | 55 42 42 49 54 28 54 68 |(..J.H S|UBBIT(Th|
|00000340| 61 74 20 69 73 20 77 68 | 65 72 65 20 74 68 65 20 |at is wh|ere the |
|00000350| 22 47 6f 73 75 62 22 20 | 63 6f 6d 6d 61 6e 64 20 |"Gosub" |command |
|00000360| 63 6f 6d 65 73 20 66 72 | 6f 6d 2d 74 68 65 20 77 |comes fr|om-the w|
|00000370| 6f 72 64 73 20 47 4f 20 | 74 6f 20 61 20 20 00 00 |ords GO |to a  ..|
|00000380| 28 01 06 4a 00 48 20 53 | 55 42 72 6f 75 74 69 6e |(..J.H S|UBroutin|
|00000390| 65 29 2d 54 68 69 73 20 | 70 72 69 6e 74 73 20 73 |e)-This |prints s|
|000003a0| 6f 6d 65 20 74 65 78 74 | 2c 77 61 69 74 73 20 66 |ome text|,waits f|
|000003b0| 6f 72 20 70 6f 69 6e 74 | 20 74 65 6e 20 6f 66 20 |or point| ten of |
|000003c0| 61 20 73 65 63 6f 6e 64 | 20 61 6e 64 20 20 00 00 |a second| and  ..|
|000003d0| 26 01 06 4a 00 44 20 67 | 6f 65 73 20 62 61 63 6b |&..J.D g|oes back|
|000003e0| 20 74 6f 20 77 68 65 72 | 65 20 74 68 65 20 70 72 | to wher|e the pr|
|000003f0| 6f 67 72 61 6d 20 6c 65 | 66 74 20 6f 66 66 20 77 |ogram le|ft off w|
|00000400| 69 74 68 20 74 68 65 20 | 22 52 65 74 75 72 6e 22 |ith the |"Return"|
|00000410| 20 63 6f 6d 6d 61 6e 64 | 2d 20 00 00 29 01 06 4a | command|- ..)..J|
|00000420| 00 4a 20 77 68 69 63 68 | 20 70 75 74 73 20 75 73 |.J which| puts us|
|00000430| 20 61 74 20 74 68 65 20 | 6c 69 6e 65 20 22 47 6f | at the |line "Go|
|00000440| 73 75 62 20 4d 41 49 4e | 22 2c 73 6f 20 77 65 20 |sub MAIN|",so we |
|00000450| 67 6f 20 74 6f 20 74 68 | 65 20 73 74 61 72 74 20 |go to th|e start |
|00000460| 6f 66 20 74 68 65 20 4d | 41 49 4e 20 00 00 12 01 |of the M|AIN ....|
|00000470| 06 4a 00 1c 20 73 75 62 | 72 6f 75 74 69 6e 65 20 |.J.. sub|routine |
|00000480| 61 6e 64 20 73 74 61 72 | 74 20 61 67 61 69 6e 2e |and star|t again.|
|00000490| 00 00 1a 01 06 4a 00 2c | 20 57 68 65 6e 20 79 6f |.....J.,| When yo|
|000004a0| 75 20 75 73 65 20 74 68 | 65 20 47 6f 73 75 62 20 |u use th|e Gosub |
|000004b0| 63 6f 6d 6d 61 6e 64 20 | 79 6f 75 20 77 72 69 74 |command |you writ|
|000004c0| 65 3a 20 20 00 00 08 01 | 06 4a 00 08 20 47 6f 73 |e:  ....|.J.. Gos|
|000004d0| 75 62 20 20 00 00 28 01 | 06 4a 00 48 20 41 6e 64 |ub  ..(.|.J.H And|
|000004e0| 20 74 68 65 6e 20 74 68 | 65 20 6e 61 6d 65 20 6f | then th|e name o|
|000004f0| 66 20 74 68 65 20 73 75 | 62 72 6f 75 74 69 6e 65 |f the su|broutine|
|00000500| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 67 6f 74 | you wan|t to got|
|00000510| 6f 28 48 65 72 65 20 77 | 65 20 75 73 65 20 4d 41 |o(Here w|e use MA|
|00000520| 49 4e 29 3a 00 00 0a 01 | 06 4a 00 0c 20 47 6f 73 |IN):....|.J.. Gos|
|00000530| 75 62 20 4d 41 49 4e 20 | 00 00 29 01 06 4a 00 4a |ub MAIN |..)..J.J|
|00000540| 20 54 68 65 20 73 74 61 | 72 74 20 6f 66 20 61 20 | The sta|rt of a |
|00000550| 73 75 62 72 6f 75 74 69 | 6e 65 20 69 73 20 73 69 |subrouti|ne is si|
|00000560| 67 6e 61 6c 6c 65 64 20 | 62 79 20 69 74 73 20 6e |gnalled |by its n|
|00000570| 61 6d 65 20 61 6e 64 20 | 61 20 63 6f 6c 6f 6e 20 |ame and |a colon |
|00000580| 61 66 74 65 72 20 69 74 | 3a 20 00 00 07 01 06 4a |after it|: .....J|
|00000590| 00 06 20 4d 41 49 4e 3a | 00 00 28 01 06 4a 00 48 |.. MAIN:|..(..J.H|
|000005a0| 20 64 6f 6e 27 74 20 70 | 75 74 20 61 6e 79 74 68 | don't p|ut anyth|
|000005b0| 69 6e 67 20 61 66 74 65 | 72 20 74 68 65 20 63 6f |ing afte|r the co|
|000005c0| 6c 6f 6e 2c 79 6f 75 20 | 68 61 76 65 20 74 6f 20 |lon,you |have to |
|000005d0| 73 74 61 72 74 20 6f 6e | 20 74 68 65 20 6e 65 78 |start on| the nex|
|000005e0| 74 20 6c 69 6e 65 20 20 | 00 00 07 01 06 4a 00 06 |t line  |.....J..|
|000005f0| 20 64 6f 77 6e 2e 00 00 | 07 01 00 0c 00 00 04 00 | down...|........|
|00000600| 6d 61 69 6e 00 00 0e 01 | 04 76 00 26 00 11 54 68 |main....|.v.&..Th|
|00000610| 65 20 4d 61 69 6e 20 72 | 6f 75 74 69 6e 65 21 00 |e Main r|outine!.|
|00000620| 00 00 06 01 12 9e 00 3e | 00 00 00 1e 00 00 09 01 |.......>|........|
|00000630| 02 b2 00 18 ff e8 06 00 | 73 75 62 62 69 74 00 00 |........|subbit..|
|00000640| 08 01 02 b2 00 18 ff f6 | 04 00 6d 61 69 6e 00 00 |........|..main..|
|00000650| 08 01 00 0c 00 00 06 00 | 73 75 62 62 69 74 00 00 |........|subbit..|
|00000660| 0c 01 04 76 00 26 00 0e | 54 68 65 20 73 75 62 72 |...v.&..|The subr|
|00000670| 6f 75 74 69 6e 65 00 00 | 06 01 12 9e 00 3e 00 00 |outine..|.....>..|
|00000680| 00 0a 00 00 03 01 03 60 | 00 00 41 6d 42 73 00 00 |.......`|..AmBs..|
+--------+-------------------------+-------------------------+--------+--------+